CAAMoonIlluminatedFraction_IlluminatedFraction <-
function(PhaseAngle){
.Call("CAAMoonIlluminatedFraction_IlluminatedFraction", PhaseAngle)
}
